MacHack 1993/MacHack 1993.toast/MacHack™ 1987-1992/MacHack™ '90/Other Stuff/Demos ƒ/Demo AppMaker/Demo AppMaker™/Demo AppMaker™.rsrc/TmpP_151_Menu.File

Text File | 1990-03-23 | 5.4 KB | 298 lines

{ %filename% }
{ Created %date% %time% by AppMaker }

Unit %UnitName%;
Interface

Uses
%if lang = MPW%
    {$Load ToolBox.dump}
        MemTypes,
        QuickDraw,
        OSIntf,
        ToolIntf,
        PackIntf,
    {$Load}

%end if%
%if lang = Think%
{$ifc undefined Think_Pascal}
    ListManager,
{$endc}
%end if%
    %for each menuItem gen usesDialog%
    Globals,
    ResourceDefs,
    Dispatcher,
    Miscellany;

{----------}
Procedure Init%MenuName%M;
Function  OkToOpen (fType:    OSType): boolean;
Procedure OpenFile (fileName:    Str255;
                    vRefNum:    integer);
Procedure Open0Files;
Procedure DoClose;
Procedure Do%MenuName% (itemNr:    integer);

{----------}
Implementation

const
    dialogTop        = 75;
    dialogLeft        = 85;

var
    numOpenTypes:    integer;
    openTypeList:    SFTypeList;

%if lang = MPW%
{$D+}
{$R+}
{$OV+}
{$S %unitname%}

%end if%
{----------}
Procedure Init%MenuName%M;
Begin
    numOpenTypes := 1;
    openTypeList [0] := 'TEXT';
End; {Init%MenuName%M}

{----------}
Function OkToOpen {(fType:    OSType): boolean};
var
    i:                integer;
    status:            (searching, found, notFound);
Begin
    i := 0;
    status := searching;
    while status = searching do begin
        if i >= numOpenTypes then begin
            status := notFound;
        end else begin
            if fType = openTypeList [i] then begin
                status := found;
            end else begin
                i := i + 1;
            end;
        end;
    end; {while}
    OkToOpen := (status = found);
End; {OkToOpen}

{----------}
Function OpenApplFile (vRefNum:        integer;
                       fName:        Str255;
                   var fRefNum:        integer): boolean;
var
    ok:                boolean;
Begin
  { application-specific Open file }
    ok := CheckOS (FSOpen (fName, vRefNum, fRefNum));
    OpenApplFile := ok;
End; {OpenApplFile}

{----------}
Procedure CloseApplFile (fRefNum:    integer);
var
    ok:                boolean;
Begin
  { application-specific Close file }
      if ord (cur^.windowKind) = 1 then begin {1st or only window in set}
        ok := CheckOS (FSClose (fRefNum));
    end;
End; {CloseApplFile}

{----------}
Procedure SaveApplFile (fRefNum:    integer);
Begin
  { application-specific Save file }
    cur^.dirty := false;
End; {SaveApplFile}

{----------}
Function ReadApplFile (fRefNum:        integer): boolean;
Begin
  { application-specific Read file }
      ReadApplFile := false;
End; {ReadApplFile}

{----------}
Procedure DoNew;
var
    nameHandle:        StringHandle;
    name:            Str255;
Begin
    nameHandle := GetString (UntitledID);
    name := nameHandle^^;
    OpenWindows (name, 0, 0);
End; {DoNew}

{----------}
Procedure OpenFile {(fileName:    Str255;
                     vRefNum:    integer)};
var
    fRefNum:        integer;
Begin
    if OpenApplFile (vRefNum, fileName, fRefNum) then begin
        OpenWindows (fileName, vRefNum, fRefNum);
    end; {if}
End; {OpenFile}

{----------}
Procedure DoOpen;
var
    dialogOrigin:    Point;
    sfInfo:            SFReply;
Begin
    SetPt (dialogOrigin, dialogLeft, dialogTop);
    SFGetFile (dialogOrigin, '', nil, numOpenTypes, openTypeList, nil, sfInfo);
    with sfInfo do begin
        if good then begin
            openFile (fName, vRefNum);
        end;
    end;
End; {DoOpen}

{----------}
Procedure Open0Files;
Begin
    DoNew;
End; {Open0Files}

{----------}
Procedure DoSaveAs;
var
    sfInfo:            SFReply;
    fRefNum:        integer;
    ok:                boolean;
    prompt:            StringHandle;
    suggestion:        Str255;
    untitled:        StringHandle;
Begin
    prompt := GetString (SaveAsPromptID);
    suggestion := '';

    with sfInfo do begin
        if CreateFile (sfInfo, prompt^^, suggestion, 'XXXX', 'TEXT')
        then begin
            if cur^.fileNum <> 0 then begin
                CloseApplFile (cur^.fileNum);
            end;
            if OpenApplFile (vRefNum, fName, fRefNum) then begin
                SetWTitle (curWindow, fName);
                cur^.fileNum := fRefNum;
                cur^.volNum := vRefNum;
                SaveApplFile (cur^.fileNum);
            end else begin {should never happen}
                untitled := GetString (UntitledID);
                SetWTitle (curWindow, untitled^^);
                cur^.fileNum := 0;
                cur^.volNum := 0;
            end; {if}
        end; {if}
    end; {with}
End; {DoSaveAs}

{----------}
Procedure DoSave;
Begin
    if cur^.fileNum = 0 then begin
        DoSaveAs;
    end else begin
        SaveApplFile (cur^.fileNum);
    end;
End; {DoSave}

{----------}
Procedure CloseApplWindow;
const
    saveItem        = 1;
    cancelItem      = 2;
    discardItem     = 3;

var
    curTitle:        Str255;
    itemNum:        integer;
    ok:                boolean;
Begin
    ok := true;
    SetInfo (FrontWindow);
    if cur^.dirty then begin
        GetWTitle (curWindow, curTitle);
        ParamText (curTitle, '', '', '');
        InitCursor;
        itemNum := Alert (SaveID, nil);
        Case itemNum of
            saveItem: begin
                    DoSave;
                    ok := not errorFlag;
                end;
            discardItem:
                   {Do nothing};
            cancelItem: begin
                    errorFlag := true;
                    ok := false;
                end;
        end; {case}
    end;
    if ok then begin
        if cur^.fileNum <> 0 then begin
            CloseApplFile (cur^.fileNum);
        end;
        CloseCurWindow;
    end;
End; {CloseApplWindow}

{----------}
Procedure DoClose;
var
    frontPeek:        WindowPeek;
Begin
    errorFlag := false;

    frontPeek := WindowPeek (FrontWindow);
    if frontPeek^.windowKind < 0 then begin
        CloseDeskAcc (frontPeek^.windowKind);
    end else if frontPeek^.windowKind = dialogKind then begin
        CloseModelessDialog (FrontWindow);
    end else begin
        CloseApplWindow;
    end;
End; {DoClose}

{----------}
Procedure DoQuit;
var
    quitting:        boolean;
Begin
    quitting := true;
    while quitting and (FrontWindow <> nil) do begin
        SystemTask;
        DoClose;
        if errorFlag then begin
            quitting := false;
        end;
    end; {while}

    if quitting then begin
        quittingTime := true;
    end;
End; {DoQuit}

%for each menuitem gen doItem%
{----------}
Procedure Do%MenuName% {(itemNr:    integer)};
Begin
    errorFlag := false;

    case itemNr of
        0:    ;
        %for each menuitem gen handleitem%
    end; {case}
End; {Do%MenuName%}

End. {%UnitName%}